unit RakeOffPayList;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseBillList, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore,
  dxSkinsDefaultPainters, cxStyles, dxSkinscxPCPainter, cxCustomData,
  cxFilter, cxData, cxDataStorage, DB, cxDBData, Menus, DBActns,
  StdActns, ActnList, ImgList, cxGridLevel, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid,
  cxLabel, ExtCtrls,
  GlobalVar, cxGridCustomPopupMenu, cxGridPopupMenu, MemDS, DBAccess, Uni,
  dxSkinsForm, cxNavigator, Vcl.ComCtrls, dxCore, cxDateUtils, System.Actions, System.ImageList, cxTextEdit, cxMaskEdit,
  cxDropDownEdit, cxCalendar, Vcl.StdCtrls, cxButtons, cxCheckBox;

type
  TfrmRakeOffPayList = class(TfrmBaseBillList)
    procedure FormCreate(Sender: TObject);
    procedure PopmnuNewRecordClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmRakeOffPayList: TfrmRakeOffPayList;

implementation

uses RakeOffPay;

{$R *.dfm}

procedure TfrmRakeOffPayList.FormCreate(Sender: TObject);
begin
  FBType := btRakeOffPay;
  inherited;

end;

procedure TfrmRakeOffPayList.PopmnuNewRecordClick(Sender: TObject);
begin
  inherited;
  frmRakeOffPay:= TfrmRakeOffPay.Create(nil);
  if (frmRakeOffPay.ShowModal = mrOk) then
    LocateRecord(-1, 6);
  FreeAndNil(frmRakeOffPay);
end;

end.

